﻿* Encoding: UTF-8.

Recode Gender (1=0) (2=1) into female .
*Recode DV's from the survey to usable form for analysis* .
Value labels
    Abor15cond 1 'no information' 2 'info provided' .
If pro_life_6_weeks>=1 Abor6_12= pro_life_6_weeks .
if pro_choice_6_weeks>=1 Abor6_12 = pro_choice_6_weeks .
If Pro_life_12_weeks>=1 Abor6_12=Pro_life_12_weeks .
If pro_choice_12_weeks>=1 Abor6_12=pro_choice_12_weeks .
If pro_life_6_weeks>=1 Abor6_12cond=1 .
if pro_choice_6_weeks>=1 Abor6_12cond= 2.
If Pro_life_12_weeks>=1 Abor6_12cond=3 .
If pro_choice_12_weeks>=1 Abor6_12cond=4 .
Value labels
    Abor6_12cond 1 'pro-life 6' 2 'pro-choice 6' 3 'pro-life 12' 4 'pro-choice 12' .
*Recode the experimental conditions* .
Recode Abor6_12cond (1 thru 2=1) (3 thru 4=2) into abor6_12weekscond .
Recode Abor6_12cond (1=1) (3=1) (2=2) (4=2)  into abor6_12framecond .
Variable labels 
    abor6_12weekscond '6 or 12 weeks condition' /
    abor6_12framecond 'pro-life/choice frame condition' .
Value labels
    abor6_12weekscond 1 '6 weeks condition' 2 '12 weeks condition' /
    abor6_12framecond 1 'pro-life frame' 2 'pro-choice frame' .

****Recode abor6_12 so pro-choice is always high*** .
If Abor6_12cond=2 or Abor6_12cond=4 newabor6_12=abor6_12 .
If Abor6_12cond=1 or Abor6_12cond=3 newabor6_12=(abor6_12-6)/-1 .

**PID recodes** .
IF pid=1 and Republican=1 pid3v2=3 .
IF pid=1 and Republican=2 pid3v2=3 .
IF pid=3 and independent=1 pid3v2=3 .
IF pid=4 and independent=1 pid3v2=3 .
IF pid=3 and independent=3 pid3v2=2 .
IF pid=4 and independent=3 pid3v2=2 .
If pid=2 pid3v2=1 .
IF pid=3 and independent=2 pid3v2=1 .
IF pid=4 and independent=2 pid3v2=1 .
Value labels
    pid3v2 1 'Democrat' 2 'Pure Ind' 3 'Republican' .
IF pid=1 and Republican=1 pid7=6 .
IF pid=1 and Republican=2 pid7=5 .
IF pid=3 and independent=1 pid7=4 .
IF pid=4 and independent=1 pid7=4 .
IF pid=3 and independent=3 pid7=3 .
IF pid=4 and independent=3 pid7=3 .
IF pid=3 and independent=2 pid7=2 .
IF pid=4 and independent=2 pid7=2 .
IF pid=2 and democrat=2 pid7=1 .
IF pid=2 and democrat=1 pid7=0 .

Recode education (1 thru 3=0) (4 thru 5=1) into Colldeg .
Recode race (2=1) (else=0) into Nonwhite .

**Recode independent variables to 0-1 scales** .
Compute HostileSexism=mean(hs1, hs2, hs3) .
Recode BornAgain (1=1) (2=0) into BornAgain2 .
Compute Relig2= (Religious_attendance-1)/5 .
Compute income2=(income-1)/7 .
Compute age2=(age-1)/10 .
Compute pid7_2=(pid7)/6 .
Compute Sexism2=(HostileSexism-1)/5 .
Compute AborKnowScale2=(AborKnowScale)/2 .
Variable labels
    Colldeg "College degree"
    Relig2 "Church attendance" /
    BornAgain2 "Born Again" /
    income2 "Household Income" /
    age2 "Age" /
    pid7_2 "Party ID"
    Sexism2 "Hostile Sexism" /
    AborKnowScale2 "Abortion Knowledge" .



*******************************************************************************.
*T-tests analysies


**Analysis for table 1 row 1** .
T-TEST GROUPS=Abor6_12cond(1 3)
  /MISSING=ANALYSIS
  /VARIABLES=newabor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

**Analysis for table 1 row 2** .
T-TEST GROUPS=Abor6_12cond(2 4)
  /MISSING=ANALYSIS
  /VARIABLES=newAbor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).



**Repeat of above-- Democrats only; null results not shown in text** .
USE ALL.
COMPUTE filter_$=(pid3v2=1).
VARIABLE LABELS filter_$ 'pid3v2=1 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.

T-TEST GROUPS=Abor6_12cond(1 3)
  /MISSING=ANALYSIS
  /VARIABLES=newabor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).


T-TEST GROUPS=Abor6_12cond(2 4)
  /MISSING=ANALYSIS
  /VARIABLES=newAbor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

**Repeat of above-- Republicans only; null results not shown in text** .
USE ALL.
COMPUTE filter_$=(pid3v2=3).
VARIABLE LABELS filter_$ 'pid3v2=1 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.


T-TEST GROUPS=Abor6_12cond(1 3)
  /MISSING=ANALYSIS
  /VARIABLES=newabor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

T-TEST GROUPS=Abor6_12cond(2 4)
  /MISSING=ANALYSIS
  /VARIABLES=newAbor6_12
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

USE ALL. .

**OLS regression for chart in figure 1 .
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN 
  /DEPENDENT newabor6_12
  /METHOD=ENTER abor6_12weekscond abor6_12framecond ,


